home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / batch / MiniMen.lha / MiniMen / DimpP < prev    next >
Encoding:
Text File  |  2000-02-26  |  423 b   |  19 lines
  1. echo c
  2. Requestfile >env:FDMP TITLE="Enter Dimp file name." DRAWER "RAM:"
  3. if warn
  4.    echo "*N Operation canceled....!"
  5.    quit
  6. endif
  7. Requestchoice >env:mode "" "Self extracting...?" Yes No
  8. MiniMen drives
  9. if exists env:minmen
  10.    if $mode eq 1
  11.       dimp read $MinMen: 0-79 $FDMP -X
  12.    else
  13.       dimp read $MinMen: 0-79 $FDMP
  14.    endif
  15. else
  16.    echo "*N Operation canceled...!"
  17. endif
  18. delete >nil: env:MinMen env:FDMP env:mode
  19.